R Notebook

library(RPostgreSQL)
library(sf)
library(plotly)
library(leaflet)
library(crosstalk)
pw <- scan("~/.pgpass2", what="")

conn = dbConnect(PostgreSQL(), dbname='nycgis', user='postgres', host='mlt_host', password=pw) 
boroughs <- st_read_db(conn=conn, table=c("staging","boroughs_nowater"))
           
boroughs$x <- seq(1:5)
boroughs$y <- seq(2,10,2)

boroughs_centroids <- st_transform(st_centroid(boroughs),crs = 4326)
sd_boroughs <- SharedData$new(boroughs_centroids)
test <- bscols(widths=c(3, NA, NA),
               list(filter_slider("x", "X Value", sd_boroughs, ~x, step=1, round=-1, sep=""),
                    filter_slider("y", "Y Value", sd_boroughs, ~y, step=1, round=1)),
              leaflet(sd_boroughs) %>% 
              addProviderTiles(providers$CartoDB.Positron) %>%
                addPolygons(data=st_transform(boroughs, crs=4326),color = "#444444", weight = 1, 
                            smoothFactor = 0.5,
                            opacity = 1.0, 
                            fillOpacity = 0.5,
                            fillColor = ~colorQuantile("Greens", x)(x), 
                            highlightOptions = highlightOptions(color = "white", weight = 2)) %>% 
                 addCircleMarkers(radius=5, stroke=TRUE, color="yellow", weight=1,fillColor = "#03F",
                               opacity=1,fillOpacity=1,popup=~boroname),
              plot_ly(sd_boroughs, x = ~x, y = ~y) %>% 
              add_markers(alpha = 0.5,text = ~paste('Borough: ', boroname)) %>%
              #hoverinfo = 'text',
              highlight("plotly_hover"))

test

X Value

Y Value